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I/O Control Usin9 Using Visual Basic 
Output 

STEP 1 - Download Fred Bulback's Dynamic Link Library (DLL) called io.dll from: 
http: //www, geekhideout. com and copy It into the CiWMNElOW^SYSTgM directory. 



STEP 2 - Load Vteusri B^c, cr^e a New prciect and add a Moduli 



Projecll Miciosoft Visual Basic [design 
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STEP 3 - In the Module Code window type in: 

Public Declare Sub PortOut Lib "io.dil" (ByVal Port As Integer, ByVal Value As Byte) 
Public Dedaie Function Porlin "ioucur (ByVal Port As Integer) As Byte 



STEP 4 - Create a Form with two Command buttons: 



ltttp://www.soii|]iwi»rt.C(m.aii/~jfuUaAr^ 
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STEP 5 - Add the following (x>de: 



1 ™ Proiecti Formi (Cade) BlfilBl 




] 




Private Sub coimnandl Cliek(} 

Call PortOut(888, 1) 
EnS Sub 




Private Sub Coitiittiand2_Clic]c() 

Call Portoucfsee, d) 
End Sub 







STEP 6 - Attach a LED Interface. Run your programme and watch the LEDs change, OR run 
Fred Bulback's Paralell Port Monitor (parmon.exe) and watch the lines change state. 




For ftiither informafion about this Interface see: 
http:/Awviw.sGajBTvt^.corn.a^^ 
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Input 

STEP 1 -SetupanewV»uail^»icForiKflMaddaiiMiiteasde8cr^^ 

STEP 2 - Add a Command Button and a Label to yOUT Fonn. 
STEP 3 - Type in th© foikM'mg code... 



Pfoiectl - Fi 



" ^(General) .Sl.yi.^"'!!j~5*"!!?^-- 



Private Sub Coii«wuadl_Cllck(} 
Din InValue As Byte 
InValue = PortIn(a89) 
Labell.Capcion " InValue 

End Sub 



STEP 4 - Connect an input ifilerfeipe. Run your pmgimmm and prms tte switches connected 
to the input lines. 



fattpy/www.southwestc(»ii.au/~jfiUlarA^A^out.htin 
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